BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Tele/U-V/userlogstack.cpt/UserLog Stack/background_2582.txt

Text File | 1990-01-06 | 5.2 KB | 237 lines

-- background: 2582 from stack: in
-- bmap block id: 3219
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openCard
  put the number of this card into field cardNo
end openCard


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=103 right=124 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Connect


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=473 top=29 right=51 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do It
----- HyperTalk script -----
on mouseUp
  ask "File to import?" with ""
  if it is empty then exit mouseUp
  put it into fileName
  open file fileName
  go to last card
  repeat forever
    read from file fileName until return
    if it is empty then
      go to first card
      close file fileName
      exit mouseUp
    else if first word of it is "Connection" then
      put it into connectTime
      read from file fileName until return
      put it into userName
      doMenu New Card
      put connectTime into field Connect
      put userName into field User
      repeat
        read from file fileName until return
        if first char of it is "-" then exit repeat
        else put it after field Activity
      end repeat
      get last word of field Connect
      convert it to seconds
      put it into a
      get last word of field Activity
      convert it to seconds
      put it into b
      set numberFormat to 0.00
      put ((b - a) / 60) into field time
    end if
  end repeat
end mouseUp


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=78 right=99 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User


-- part 5 (field)
-- low flags: 00
-- high flags: 6007
-- rect: left=12 top=128 right=296 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Activity


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=387 top=78 right=99 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=477 top=315 right=331 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=315 right=331 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=120 top=311 right=333 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: by Connect
----- HyperTalk script -----
on mouseUp
  if hilite of background button "by User" is true then
    set hilite of background button "by User" to false
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=230 top=311 right=333 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: by User
----- HyperTalk script -----
on mouseUp
  if hilite of background button "by Connect" is true then
    set hilite of background button "by Connect" to false
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=13 top=311 right=333 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  if hilite of background button "by Connect" is true then
    sort by last word of field connect
    sort by seventh word of field connect
  end if
  if hilite of background button "by User" is true then
    sort by field user
  end if
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=4 top=31 right=52 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cardNo